home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / vr2___i5.p2s < prev    next >
Encoding:
Text File  |  1994-07-13  |  4.9 KB  |  205 lines
  1. ###########################################################################
  2. #
  3. # File name: VR2___I5.P2S
  4. # Description: Check status default brightness and contrast.
  5. #               Set brighness and contrast before recording.
  6. #               Test giving wrong value recording.
  7. # Settings: 
  8. #           rate: 30 frames per sec
  9. #           compression: indeo
  10. #           video quality: 5000
  11. #           audio: 11025 samples per sec, 16 bits, 2 channel, volume 100
  12. #           video source: 640 x 480
  13. #           video destination: 320 x 240
  14. #           brightness 60
  15. #           contrast   75
  16. ###########################################################################
  17.  
  18. ############################################
  19. #
  20. #   open Video In
  21. #
  22. ############################################
  23.  
  24. OPEN DIGITALVIDEO02 ALIAS VID SHAREABLE NOTIFY
  25. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  26. @WAIT_NOTIFY 1 45000
  27.  
  28. ############################################
  29. #
  30. #   set video monitor on/off
  31. #
  32. ############################################
  33.  
  34. SET VID MONITOR ON NOTIFY
  35. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #57
  36. @WAIT_NOTIFY 57 30000
  37.  
  38. ############################################
  39. #
  40. #   enable audio monitor
  41. #
  42. ############################################
  43.  
  44. CONNECTION VID QUERY TYPE WAVE STREAM ALIAS AMP WAIT
  45.  
  46. SET AMP MONITOR ON WAIT
  47.  
  48. ############################################
  49. #
  50. #   load a new file
  51. #
  52. ############################################
  53.  
  54. LOAD VID NEW NOTIFY
  55. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #13
  56. @WAIT_NOTIFY 13 30000
  57.  
  58. ############################################
  59. #
  60. #   set time format to milliseconds
  61. #
  62. ############################################
  63.  
  64. SET VID TIME FORMAT MILLISECONDS NOTIFY
  65. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #17
  66. @WAIT_NOTIFY 17 30000
  67.  
  68. ############################################
  69. #
  70. #   set the frames per sec (15,30)
  71. #
  72. ############################################
  73.  
  74. SET VID VIDEO RECORD RATE 30 NOTIFY
  75. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #21
  76. @WAIT_NOTIFY 21 30000
  77.  
  78. ############################################
  79. #
  80. #   set compression type:
  81. #     - DIB:  raw = uncompressed
  82. #     - ULTI: ultimotion
  83. #     - RT21: indeo
  84. #
  85. ############################################
  86.  
  87. SET VID VIDEO COMPRESSION RT21 NOTIFY
  88. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #25
  89. @WAIT_NOTIFY 25 30000
  90.  
  91. ############################################
  92. #
  93. #   set video quality (0-10000)
  94. #
  95. ############################################
  96.  
  97. SET VID VIDEO QUALITY 5000 NOTIFY
  98. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #29
  99. @WAIT_NOTIFY 29 30000
  100.  
  101. ############################################
  102. #
  103. #   set audio parameters:
  104. #     - SAMPLESPERSEC: 11025,22050,44100
  105. #     - CHANNEL: 1,2
  106. #     - BITSPERSAMPLE: 8,16
  107. #     - VOLUME: 0-100
  108. #
  109. ############################################
  110.  
  111. SET VID SAMPLESPERSEC 11025 NOTIFY
  112. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #33
  113. @WAIT_NOTIFY 33 30000
  114.  
  115. SET VID CHANNELS 2 NOTIFY
  116. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #37
  117. @WAIT_NOTIFY 37 30000
  118.  
  119. SET VID BITSPERSAMPLE 16 NOTIFY
  120. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #41
  121. @WAIT_NOTIFY 41 30000
  122.  
  123. SET VID AUDIO VOLUME 100 NOTIFY
  124. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #45
  125. @WAIT_NOTIFY 45 30000
  126.  
  127. ############################################
  128. #
  129. #   set window size
  130. #
  131. ############################################
  132.  
  133. PUT VID RECORD SOURCE AT 0 0 640 480 NOTIFY
  134. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PUT #49
  135. @WAIT_NOTIFY 49 30000
  136.  
  137. PUT VID RECORD DESTINATION AT 0 0 320 240 NOTIFY
  138. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PUT #53
  139. @WAIT_NOTIFY 53 30000
  140.  
  141. ###################################################
  142. #
  143. #    check some default status
  144. ###################################################
  145.  
  146. status vid contrast wait
  147.  
  148. set vid contrast 75 wait
  149.  
  150. status vid contrast wait
  151. =75
  152.  
  153. status vid brightness wait
  154.  
  155. set vid brightness 60 wait
  156.  
  157. status vid brightness wait
  158. =60
  159.  
  160. status vid mode wait
  161. =stopped
  162.  
  163. ############################################
  164. #
  165. #   message to user: play source
  166. #
  167. ############################################
  168.  
  169. @BREAK Make sure that the source is already playing
  170.  
  171. ############################################
  172. #
  173. #   attempt to record with a negative value should return error
  174. #   record for 10 seconds
  175. #
  176. ############################################
  177. record vid to -5000 notify
  178. =!ERROR
  179.  
  180.  
  181. RECORD VID TO 10000 NOTIFY
  182. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #81
  183. @WAIT_NOTIFY 81 50000
  184.  
  185.  
  186. ############################################
  187. #
  188. #   play the file
  189. #
  190. ############################################
  191.  
  192. PLAY VID FROM 0 NOTIFY
  193. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #84
  194. @WAIT_NOTIFY 84 50000
  195.  
  196. ############################################
  197. #
  198. #   close video in
  199. #
  200. ############################################
  201. CLOSE VID NOTIFY
  202. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #99
  203. @WAIT_NOTIFY 99 30000
  204.  
  205.